$userip=$_SERVER['REMOTE_ADDR'];
$datm=date("Y-m-d H:i:s", time());
// echo "
".$datm;
$datm_dtls=explode(" ",$datm);
$datm_datm=$datm_dtls[0];
$datm_time=$datm_dtls[1];
// print_r($datm_dtls);
include ("config-smta.php");
include ("conv.php");
require_once("xtrt-xxxx-func.php");
/////////////
////////////
$site_datm=date("Y-m-d H:i:s", time());
$datm_itms=explode(" ",$site_datm);
$datm_datm=$datm_itms[0];
$datm_time=$datm_itms[1];
$zoek_datm="%".substr($datm_datm,5,5)."%";
// echo "
DATUM ".$datm_datm."ZOEK DATM ".$zoek_datm;
///////////////////// EERSTE INDRUK /////////////////////////
$rule_rslt=xtrt_xxxx($invr_bzv1,"nederlands","smta");
// print_r($rule_rslt);
// asort($rule_rslt);
$cr=0;
foreach($rule_rslt as $rule_key => $rule_val)
{
// echo "Eerste indruk ";
$rule_itms=explode("!!",$rule_key);
print_r($rule_itms);
$tref_scre=$rule_itms[0];
$tref_taal=$rule_itms[1];
$tref_corp=$rule_itms[2];
$tref_vrag=$rule_itms[3];
$tref_antw=$rule_itms[4];
$stref_antw=str_replace(" ","+",$tref_antw);
$tref_dtls=explode("@",$tref_antw);
$tref_lnks=$tref_dtls[0];
$tref_rchs=$tref_dtls[1];
$stref_vrag=str_replace(" ","+",$tref_vrag);
$ltref_antw="".$tref_antw."";
$ltref_antw="";
$tref_datm=$rule_itms[5];
$tref_levl=$rule_itms[6];
$tref_ipad=$rule_itms[7];
$cr=$cr+1;
if ($tref_rchs != null)
{
echo "
". $tref_scre."-".$tref_lnks."<>".$tref_rchs."";
}
}
///////////////
$zoek_rchs="%".$invr_bzv1."%";
$nr=0;
// echo "
Het gesprek tot nu toe";
// $sqltref="SELECT * FROM `splt` where `datm` like '$zoek_datm' or `rchs` like '$zoek_rchs' order by `datm` desc ";
$sqltref="SELECT * FROM `mtsw` where `rchs` like '$zoek_rchs' order by `datm` desc ";
// echo "
URL ENCODED ".urlencode($line);
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$trefresult = mysql_query($sqltref, $link);
$tref_num = mysql_num_rows($trefresult);
// echo "
Aantallen ".$sqltref." ".$tref_num;
if ($tref_num == 0)
{
// echo "
".$line."--NO MATCHES FOUND CALL US on 31-162-313323
";
// exit;
}
else
{
while ($row = mysql_fetch_assoc($trefresult) )
{
$domn=$row['domn'];
$lnks=$row['lnks'];
$rchs=$row['rchs'];
$datm=$row['datm'];
$datm_itms=explode(" ",$site_datm);
$datm_datm=$datm_itms[0];
$datm_time=$datm_itms[1];
$levl=$row['levl'];
$datm_rslt[$datm_datm."!".$domn."!".$lnks."!".$rchs."!".$levl]=$datm_rslt[$datm_datm."!".$domn."!".$lnks."!".$rchs."!".$levl]+1;
$nr=$nr+1;
}
}
// print_r($datm_rslt);
echo "";
foreach($datm_rslt as $rslt_key => $rslt_val)
{
// echo "".$rslt_key." | ".$rslt_val." |
";
}
echo "
";
$save_corp=$invr_corp;
if($invr_corp == $rslt_domn)
{
// echo "
DATM ".$rslt_datm." DOMN ".$rslt_domn;
}
if (count($datm_rslt) > 0)
{
echo "
BEGIN ".$datm." INVR BZV1 ".$invr_bzv1." INVR CONT ".$invr_cont." INVR CHBT ".$invr_chbt;
$finvr_cont=str_replace(" ","_",$invr_cont);
$myFile = "./data/semanta_data/".substr($finvr_cont,0,64)."_".strlen($invr_cont).".dat";
echo "
MY FILE ".$myFile;
$smta_array=array();
$sa=0;
$smta_cnvs[0]="smta-cnvs";
$fh = fopen($myFile, 'w') or die("can't open file");
echo "";
echo "Utterance | Shortcut | Reaction |
";
//////////////////////////////////
// echo "
COUNT ".count($datm_rslt);
$ac=0;
foreach($datm_rslt as $rslt_key => $rslt_val)
{
// echo "
RSLT KEY ".$rslt_key." RSLT VAL ".$rslt_val;
$rslt_itms=explode("!",$rslt_key);
$rslt_datm=$rslt_itms[0];
$rslt_domn=$rslt_itms[1];
$rslt_lnks=$rslt_itms[2];
$rslt_rchs=$rslt_itms[3];
$rchs_itms=explode("@",$rslt_rchs);
$vrag_rchs=$rchs_itms[1];
$vrag_lnks=$rchs_itms[0];
$rslt_levl=$rslt_itms[4];
// echo "
KEUZE ".urlencode($vrag_lnks);
// if ( $invr_corp == $rslt_domn and $vrag_rchs[0] != null)
if ($vrag_rchs[0] != null)
{
$ac=$ac+1;
$splt_dtls=explode($vrag_lnks,$invr_bzv1);
$splt_lnks=$splt_dtls[0];
$splt_rchs=$splt_dtls[1];
fwrite($fh, $ac."-".$rslt_rchs);
if ($splt_rchs != null)
{
// echo "
SPLT LNKS ".$splt_lnks." SPLT RCHS ".$splt_rchs;
echo "".$splt_lnks." | ".$vrag_lnks." | ".$splt_rchs." |
";
}
echo "".$rslt_lnks." | ".$vrag_lnks." | ".$vrag_rchs." |
";
$smta_cnvs[0]="THE_URL:https.//www.semanta.nl/semanta/data/semanta/".$my_file."
THE_TITLE:".$plt_lnks."@".$splt_rchs;
print_r($smta_cnvs);
$smta_json=json_encode($smta_cnvs);
// echo "
SMTA JSON ".$smta_json;
$obj = json_decode($smta_json,true);
// fclose($fh);
echo "
Check ".$invr_bzv1."";
$str = file_get_contents($myFile);
// echo "
STR ".$str;
$obj = json_decode($str,true);
}
}}
echo "
";
fclose($fh);
////////////////////////
echo "
Check ".$invr_bzv1."";
exit;
// $finvr_bzv1=str_replace(" ","_",$invr_bzv1).".json";
// $myFile = "./json/".$finvr_bzv1;
$smta_array=array();
$sa=0;
$smta_cnvs[0]="smta-cnvs";
$fh = fopen($myFile, 'w') or die("can't open file");
foreach($datm_rslt as $splt_key => $splt_val)
{
// echo "
SPLT KEY ".$splt_key." SPLT VAL ".$splt_val;
/////////////////////
$splt_itms=explode("!",$splt_key);
////////////////
$smta_array[$sa]=$splt_itms[3]."!!".$splt_itms[4];
$sa=$sa+1;
// $smta_array= array_merge($smta_array,$splt_itms);
// echo "
SPLT JSON ".$splt_json;
// print_r($row);
// echo "
SMTA JSON
";
// print_r($obj);
// echo "";
foreach($splt_itms as $obj_key => $obj_val)
{
// echo "
OBJ KEY ".$obj_key." OBJ VAL ".$obj_val;
if ($obj_key == "2")
{
$obj_text="";
if ($orelt != $obj_val)
{
$obj_text=$obj_text.$obj_val;
$orelt=$obj_val;
}
}
if ($obj_key == "4")
{
if ($krelt != $obj_val)
{
$obj_dtls=explode("@",$obj_val);
foreach($obj_dtls as $val_key => $val_val)
{
if ($val_val != null)
{
// echo " VAL VAL ".urlencode($val_val);
}
}
$obj_text=$obj_text. " | ".$vr." | ".$obj_val." |
";
// echo $obj_text;
$krelt=$obj_val;
$vr=$vr+1;
}
}
}
// echo "
";
////////////////
// echo "
KEY ".$splt_key." VAL ".$splt_val;
$splt_scre=$splt_itms[0];
$splt_taal=$splt_itms[1];
$splt_chbt=$splt_itms[2];
$splt_cont=$splt_itms[3];
$splt_antw=$splt_itms[4];
$splt_dtls=explode("@",$splt_antw);
$splt_lnks=$splt_dtls[0];
$splt_rchs=$splt_dtls[1];
$ssplt_antw=str_replace(" ","+",$splt_rchs);
// echo "
SPLT RCHS ".urlencode($splt_rchs)." SPLT LNKS ".urlencode($splt_lnks);
// echo "
SPLT CONT ".$splt_cont;
// echo "
DIT DENKT ".$splt_chbt."".$splt_rchs."";
$zoek_ook=" ".$splt_rchs." ";
if (strlen($splt_rchs) > 1 and substr($splt_cont,0,6) != "./data")
{
echo "
DIT DENKT ".$splt_chbt."".$splt_rchs."";
$dspl_antw=$splt_rchs;
$antw_smts=explode("@",$dspl_antw);
// print_r($antw_smts);
$dspl_antw=str_replace("@"," ",$dspl_antw);
$dspl_antw=str_replace("%%",$splt_lnks,$dspl_antw);
$dspl_antw=str_replace("gast",$invr_name,$dspl_antw);
$dspl_antw=str_replace("xxxx","webeditor",$dspl_antw);
$dspl_antw=str_replace("gesprekspartner",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("invrvrag",$invr_bzv1,$dspl_antw);
$dspl_antw=str_replace("invrrslt",$invr_rslt,$dspl_antw);
$dspl_antw=str_replace("invrdatm",$invr_datm,$dspl_antw);
$dspl_antw=str_replace("invrtime",$datm_time,$dspl_antw);
$dspl_antw=str_replace("invrwkdg",$weekdag,$dspl_antw);
$dspl_antw=str_replace("invrcorp",$invr_corp,$dspl_antw);
$dspl_antw=str_replace("invrchbt",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("invrcont",$splt_cont,$dspl_antw);
$dspl_antw=str_replace("ipcdland",$ipcd_land,$dspl_antw);
$dspl_antw=str_replace("invrmin1","".$invr_min1."", $dspl_antw);
$invr_bzv2=$dspl_antw;
echo "
".$splt_chbt." over ".$dspl_antw."";
$dspl_antw=str_replace("invrlnks","".$lnks_lnks."".$dspl_antw);
$dspl_antw=str_replace("invrrchs","".$lnks_rchs."".$dspl_antw);
// echo "
DIT DENKT NA INVRRCHS ".$splt_chbt."".$dspl_antw."";
// $invr_bzv2=$dspl_antw;
}
}
// echo "
INVR BZV2 ".$invr_bzv2;
////////////////////////////////////// LOSSE ITEMS
$splt_rslt=xtrt_xxxx($invr_bzv1,$invr_taal,"splt");
// print_r($splt_rslt);
// echo "
ITEM RSLT ".count($splt_rslt)." BZV1 ".$invr_bzv1;
$sr=0;
$bc=0;
if (count($splt_rslt) > 0)
{
echo "
";
foreach($splt_rslt as $splt_key => $splt_val)
{
if ($crelt != $splt_chbt)
{
// echo "
Context: ".$splt_chbt;
$crelt=$splt_chbt;
}
$splt_itms=explode("!!",$splt_key);
// echo "
KEY ".$splt_key." VAL ".$splt_val;
$splt_scre=$splt_itms[0];
$splt_taal=$splt_itms[1];
$splt_chbt=$splt_itms[2];
$splt_cont=$splt_itms[3];
$splt_antw=$splt_itms[4];
// echo "
DIT WEET ".$splt_chbt."".$splt_antw."";
$splt_dtls=explode("@",$splt_antw);
$splt_lnks=$splt_dtls[0];
$splt_rchs=$splt_dtls[1];
$splt_rchs=str_replace("%%",$splt_lnks);
$ssplt_antw=str_replace(" ","+",$splt_rchs);
// echo "
Context ".$splt_cont;
// echo "
DIT DENKT CHBT ".$splt_chbt."SPLT RCHS ".$splt_antw."";
$zoek_ook=" ".$splt_rchs." ";
if (strlen($splt_rchs) > 1 and substr($splt_cont,0,6) == "./data" )
// if ($splt_rchs !=null and $splt_lnks == $invr_bzv1 and $splt_chbt == $invr_chbt and $splt_lnks == $invr_corp)
{
// echo "
DIT DENKT ".$splt_chbt."".$splt_rchs."";
$dspl_antw=$splt_rchs;
$dspl_antw=str_replace("@"," ",$dspl_antw);
$dspl_antw=str_replace("%%",$splt_lnks,$dspl_antw);
$dspl_antw=str_replace("gast",$invr_name,$dspl_antw);
$dspl_antw=str_replace("xxxx","webeditor",$dspl_antw);
$dspl_antw=str_replace("gesprekspartner",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("invrvrag",$invr_bzv1,$dspl_antw);
$dspl_antw=str_replace("invrrslt",$invr_rslt,$dspl_antw);
$dspl_antw=str_replace("invrdatm",$invr_datm,$dspl_antw);
$dspl_antw=str_replace("invrtime",$datm_time,$dspl_antw);
$dspl_antw=str_replace("invrwkdg",$weekdag,$dspl_antw);
$dspl_antw=str_replace("invrcorp",$invr_corp,$dspl_antw);
$dspl_antw=str_replace("invrchbt",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("invrcont",$splt_cont,$dspl_antw);
$dspl_antw=str_replace("ipcdland",$ipcd_land,$dspl_antw);
$dspl_antw=str_replace("invrmin1",$invr_min1,$dspl_antw);
$invr_bzv2=$dspl_antw;
$sinvr_bzv2=str_replace(" ","+",$invr_bzv2);
echo "
".$splt_chbt." over ".$dspl_antw."";
// $dspl_antw=str_replace("invrlnks","".$lnks_lnks."".$dspl_antw);
// $dspl_antw=str_replace("invrrchs","".$lnks_rchs."".$dspl_antw);
// echo "
DIT DENKT NA INVRRCHS ".$splt_chbt."".$dspl_antw."";
// $invr_bzv2=$dspl_antw;
echo "";
if ($sr == 0)
{
$antw_ook="".$invr_chbt."";
echo "
".$antw_ook."
";
$antw_smts=explode(":",$dspl_antw);
$da=0;
if (count($antw_smts) > 1 and $da ==0)
{
echo "Voor ".$antw_smts[0]." zijn er meerdere keuzes mogelijk. Ik noem er ".count($antw_smts);
$da=$da+1;
}
foreach($antw_smts as $smts_key => $smts_val)
{
if ($da > 0)
{
// echo "".$smts_val." |
";
$da=$da+1;
}
}
// echo "
";
// echo "Dit heb ik ook nog gevonden |
";
$sr=$sr+1;
}
else
{
if ($sr > 0 and $sr < 8)
{
if ($splt_rchs != $srelt)
{
$sr=$sr+1;
$srelt=$splt_rchs;
// echo "
INVR MIN1 ".$invr_min1;
$antw_ook=" ".$invr_bzv2." ";
// echo "".$sr." | ".$invr_bzv2." |
";
// echo "".$antw_ook." |
";
$bzv2_array[$bc]=$invr_bzv2;
$bc=$bc+1;
}
}
}
}
}
}
foreach($bzv2_array as $bzv2_key => $bzv2_val)
{
$full_val=$bzv2_val;
include("wrte-data-func.php");
}
echo "
";
$smta_json=json_encode($smta_array);
fwrite($fh, $smta_json);
$obj = json_decode($smta_json,true);
fclose($fh);
echo "
Check ".$invr_bzv1."";
$str = file_get_contents($myFile);
// echo "
STR ".$str;
$obj = json_decode($str,true);
echo "";
// print_r($obj);
echo "
";
$json = json_decode($str, true);
// echo "
JSON ".$json;
// echo '' . print_r($json, true) . '
';
if ($invr_func== "cnvs")
{
$antw_ook="U kunt reageren door hier te klikken";
echo "
".$antw_ook."
";
exit;
}
///////
if ($invr_taal == null)
{
$invr_taal="nederlands";
}
if ($invr_corp == null)
{
$invr_corp="semanta";
}
if ($invr_domn == null)
{
$invr_domn=$invr_corp;
}
if ($invr_func == null)
{
$invr_func="bzkr";
}
if ($invr_chbt == null)
{
$invr_chbt="semantus";
}
if ($invr_bzkr == null)
{
$invr_bzkr="bezoeker";
}
if ($invr_bzkr != null)
{
// echo "
hallo ".$invr_bzkr;
}
$sinvr_bzv1=str_replace(" ","+",$invr_bzv1);
?>
// require_once ("word-expl-func.php");
// require_once ("letr-expl-func.php");
// require_once ("bwrk-line-func.php");
require_once ("bepl-taal-func.php");
require_once ("text-isrt-func.php");
require_once ("xtrt-wiki-func.php");
require_once ("taal-ipcd-func.php");
require_once ("conv-text-func.php");
require_once ("calc-text-func.php");
// echo "
INVR TAAL ".$invr_taal;
// echo "
INVR FUNC ".$invr_func;
// echo "
INVR DOMN ".$invr_domn;
// echo "
INVR BZV1 ".$invr_bzv1;
$grammatica=text_isrt($invr_taal."@Grammatica");
// echo "
Taalkunde".$grammatica;
$grammatica=strtoupper($grammatica);
$bezoeker=text_isrt($invr_taal."Bezoeker");
echo "".$invr_tabl."
";
$wiki_ipcd=taal_ipcd($invr_taal);
/////////////////
// $sql = "SELECT * FROM $invr_tabl order by `datm` desc";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
// $tablresult = mysql_query($sql, $link);
$tabl_num = mysql_num_rows($tablresult);
// echo "
Totaal Aantal ".$invr_tabl." ".$sql." ".$tabl_num;
$nr=0;
while ($row = mysql_fetch_assoc($tablresult) and $nr < 16)
{
$ipad=$row['ipad'];
$taal=$row['taal'];
$domn=$row['domn'];
// echo "
DOMN ".$domn;
$lnks=$row['lnks'];
$rchs=$row['rchs'];
$datm=$row['datm'];
$nr=$nr+1;
$datm_dtls=explode(" ",$datm);
// print_r($datm_dtls);
$last_datm=$datm_dtls[0];
$last_time=$datm_dtls[1];
}
echo "
LAATSTE DATUM".$last_datm;
if ($invr_tabl == null)
{
$invr_tabl="splt";
}
if ($invr_bzv1 == null)
{
$invr_bzv1="semanta";
}
if ($invr_corp== null)
{
$invr_corp="semanta";
}
if ($invr_taal == null)
{
$invr_taal="nederlands";
}
$strp_bzv1=str_replace("+","%",$invr_bzv1);
$invr_bzv1=str_replace("+"," ",$invr_bzv1);
// echo "
LENGTES BZV1".strlen($invr_bzv1)." STRP ".strlen($strp_bzv1);
// echo "
zoekterm+ --- beginnen met ".$strp_bzv1;
// echo "
+zoekterm+ --- bevatten zoekterm";
// echo "
+zoekterm --- eindigen met zoekterm";
// echo "
zoekterm Alleen de gekozen zoekvorm laten zien";
// $calc_rslt=calc_text($invr_bzv1,"semanta","semantus");
// print_r($calc_rslt);
$bzv1_itms=explode(" ",$strp_bzv1);
$subs_itms=explode(" ",$invr_bzv1);
// print_r($subs_itms);
////////////// SUBSTITUTES /////
foreach($subs_itms as $bzv1_key => $bzv1_val)
{
if (strlen($bzv1_val) > 3)
{
$subs_rslt=xtrt_xxxx($bzv1_val,"nederlands","subs");
// print_r($subs_rslt);
foreach($subs_rslt as $subs_key => $subs_val)
{
// echo "
KEY ".$subs_key." VAL ".$subs_val;
$key_dtls=explode("!!",$subs_key);
$dtls_subs=$key_dtls[4];
$dtls_bron=$key_dtls[3];
$subs_array[$dtls_subs]=$subs_array[$dtls_subs]+1;
}
}
}
// print_r($subs_array);
if (count($subs_array) > 0)
{
foreach($subs_array as $subs_key => $subs_val)
{
$ssubs_key=str_replace("+"," ",$subs_key);
echo "
".$subs_key."";
// echo "
".$invr_bzv1."<>".$subs_key;
}
}
////////
$zoek_bzv1=$strp_bzv1;
if (count($bzv1_itms) > 1)
{
// $zoek_bzv1=$bzv1_itms[0];
// echo "U kunt in deze versie een woordvorm per keer opvragen. Voor meer informatie klikt u hier.";
}
if (strlen($strp_bzv1) < 3)
{
echo "U kunt in deze versie alleen woordvormen met meer dan 2 tekens opvragen. Voor meer informatie klikt u hier.";
}
//////////////////
$line-$invr_bzv1;
$sql="SELECT * , MATCH (domn,lnks,rchs) AGAINST ('$line') AS score FROM $invr_tabl WHERE MATCH (domn,lnks,rchs) AGAINST ('$line') order by `lnks`,`score` desc";
if ($invr_tabl== "splt")
{
$sub_line=substr($line,4,512);
$cln_line=str_replace("+"," ",$sub_line);
trim($sub_line);
// echo "
LINE ".$line;
$line=$invr_bzv1;
$sql="SELECT * , MATCH (lnks,rchs) AGAINST ('$line') AS score FROM $invr_tabl WHERE MATCH (lnks,rchs) AGAINST ('$line')order by `score` desc";
}
// echo "
INVR BZV1 ".$invr_bzv1." INVR TAAL ".$invr_taal."INVR TABL ".$invr_tabl." INVR CORP ".$invr_corp." INVR FUNC ".$invr_func;
// $sql = "SELECT * FROM $invr_tabl where `lnks` like '$strp_bzv1' or `rchs` like '$strp_bzv1' order by `lnks`,`rchs` desc";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sql, $link);
$tabl_num = mysql_num_rows($tablresult);
echo "
Aantallen ".$invr_tabl." ".$sql." ".$tabl_num;
// echo "
";
$linvr_bzv1=str_replace(" ","+",$invr_bzv1);
echo '';
// echo 'LANGUAGE | POS |
';
$drelt="xxxxxxxx";
if ($tabl_num == 0)
{
$lrchs="".$invr_bzv1."";
echo $lrchs;
}
if ($tabl_num != 0)
{
header('Content-type: application/json; charset=utf-8');
$vr=1;
echo "";
while ($row = mysql_fetch_assoc($tablresult) and $vr < 9)
{
// echo json_encode($row);
$smta_json=json_encode($row);
// echo "
FETCH ROW
";
// print_r($row);
// echo "
SMTA JSON ".$vr."-".$smta_json;
$obj = json_decode($smta_json,true);
foreach($obj as $obj_key => $obj_val)
{
// echo "
OBJ KEY ".$obj_key;
if ($obj_key == "domn")
{
$obj_text="";
if ($orelt != $obj_val)
{
$obj_text=$obj_text.$obj_val;
$orelt=$obj_val;
}
}
if ($obj_key == "rchs")
{
$obj_dtls=explode("@",$obj_val);
// echo " VAL VAL ".urlencode($val_val);
foreach($obj_dtls as $val_key => $val_val)
{
if ($val_val != null)
{
if ($krelt != $obj_val)
{
$krelt=$obj_val;
// echo " VAL VAL ".urlencode($val_val);
$obj_text=$obj_text. " | ".$vr." | ".$val_val." |
";
// echo $obj_text;
$vr=$vr+1;
}
}
}
}
}
// print_r($obj);
// echo "
";
}
}
echo "
";
?>